Abstract
The package includes several tools for testing the significance of enrichment of modules or other gene sets as well as visualisation of the features (genes, metabolites etc.) and gene sets, feature sets or transcriptional modules. Furthermore, the package provides blood transcriptional modules described by Chaussabel et al. (2008) and by Li et al. (2014) as well as metabolic profiling clusters from Weiner et al. (2012). This user guide is a tutorial and main documentation for the package.
Gene set enrichment (GSE) analysis is an increasingly important tool in the biological interpretation of high throughput data, versatile and powerful. In general, there are three generations of GSE algorithms and packages.
First generation approaches test for enrichment in defined sets of differentially expressed genes (often called “foreground”) against the set of all genes (“background”). The statistical test involved is usually a hypergeometric or Fisher’s exact test. The main problem with this kind of approach is that it relies on arbitrary thresholds (like p-value or log fold change cut-offs), and the number of genes that go into the “foreground” set depends on the statistical power involved. Comparison between the same experimental condition will thus yield vastly different results depending on the number of samples used in the experiment.
The second generation of GSE involve tests which do not rely on such arbitrary definitions of what is differentially expressed, and what not, and instead directly or indirectly employ the information about the statistical distribution of individual genes. A popular implementation of this type of GSE analysis is the eponymous GSEA program (Subramanian et al. 2005). While popular and quite powerful for a range of applications, this software has important limitations due to its reliance on bootstrapping to obtain an exact p-value. For one thing, the performance of GSEA dramatically decreases for small sample numbers (Weiner 3rd and Domaszewska 2016). Moreover, the specifics of the approach prevent it from being used in applications where a direct test for differential expression is either not present (for example, in multivariate functional analysis, see Section “Functional multivariate analysis”).
The tmod package and the included CERNO1 test belong to the second generation of algorithms. However, unlike the program GSEA, the CERNO relies exclusively on an ordered list of genes, and the test statistic has a χ² distribution. Thus, it is suitable for any application in which an ordered list of genes is generated: for example, it is possible to apply tmod to weights of PCA components or to variable importance measure of a machine learning model.
tmod was created with the following properties in mind: (i) test for enrichment which relies on a list of sorted genes, (ii) with an analytical solution, (iii) flexible, allowing custom gene sets and analyses, (iv) with visualizations of multiple analysis results, suitable for time series and suchlike, (v) including transcriptional module definitions not present in other databases and, finally, (vi) to be suitable for use in R.
In this chapter, I will use an example data set included in tmod to show the application of tmod to the analysis of differential gene expression. The data set has been generated by Maertzdorf et al. (2011) and has the GEO ID GSE28623. Is based on whole blood RNA microarrays from tuberculosis (TB) patients and healthy controls.
Although microarrays were used to generate the data, the principle is the same as in RNASeq.
In the following, we will use the Egambia data set included in the package. The data is already background corrected and normalized, so we can proceed with a differential gene expression analysis. Note that only a bit over 5000 genes from the original set of over 45000 probes is included.
library(limma)
library(tmod)
## For tmod user guide, type `vignette("tmod")`
data(Egambia)
design <- cbind(Intercept=rep(1, 30), TB=rep(c(0,1), each= 15))
E <- as.matrix(Egambia[,-c(1:3)])
fit <- eBayes(lmFit(E, design))
tt <- topTable(fit, coef=2, number=Inf,
genelist=Egambia[,1:3])
The table below shows first couple of results from the table tt.
| GENE_SYMBOL | GENE_NAME | logFC | adj.P.Val |
|---|---|---|---|
| FAM20A | family with sequence similarity 20, member A" | 2.956 | 0.001899 |
| FCGR1B | Fc fragment of IgG, high affinity Ib, receptor (CD64)" | 2.391 | 0.002095 |
| BATF2 | basic leucine zipper transcription factor, ATF-like 2 | 2.681 | 0.002216 |
| ANKRD22 | ankyrin repeat domain 22 | 2.764 | 0.002692 |
| SEPT4 | septin 4 | 3.287 | 0.002692 |
| CD274 | CD274 molecule | 2.377 | 0.002692 |
OK, we see some of the genes known to be prominent in the human host response to TB. We can display one of these using tmod’s showGene function (it’s just a boxplot combined with a beeswarm, nothing special):
group <- rep( c("CTRL", "TB"), each=15)
showGene(E["20799",], group,
main=Egambia["20799", "GENE_SYMBOL"])
Fine, but what about the modules?
There are two main functions in tmod to understand which modules or gene sets are significantly enriched2. There are several statistical tests which can be used from within tmod (see chapter “Statistical tests in tmod” below), but here we will use the CERNO test, which is the main reason this package exist. CERNO is particularly fast and robust second generation approach, recommended for most applications.
CERNO works with an ordered list of genes (only ranks matter, no other statistic is necessary); the idea is to test, for each gene set, whether the genes in this gene set are more likely than others to be at the beginning of that list. The CERNO statistic has a \(\chi^2\) distribution and therefore no randomization is necessary, making the test really fast.
l <- tt$GENE_SYMBOL
resC <- tmodCERNOtest(l)
head(resC, 15)
## # tmod report (class tmodReport) 8 x 15:
## # (Showing rows 1 - 5 out of 15)
## │ID │Title │cerno│N1 │AUC │cES │P.Value│adj.P.Val
## LI.M37.0│ LI.M37.0│immune activation - generic cluster│ 426│ 100│ 0.75│ 2.1│< 2e-16│6.3e-16
## LI.M11.0│ LI.M11.0│enriched in monocytes (II) │ 114│ 20│ 0.78│ 2.8│5.3e-09│9.1e-07
## LI.S4│ LI.S4│Monocyte surface signature │ 76│ 10│ 0.90│ 3.8│1.6e-08│1.9e-06
## LI.M112.0│LI.M112.0│complement activation (I) │ 74│ 11│ 0.85│ 3.3│1.7e-07│1.5e-05
## LI.M75│ LI.M75│antiviral IFN signature │ 65│ 10│ 0.89│ 3.3│1.0e-06│7.2e-05
Only first 15 results are shown above.
Columns in the above table contain the following:
These results make a lot of sense: the transcriptional modules found to be enriched in a comparison of TB patients with healthy individuals are in line with the published findings. In especially, we see the interferon response, complement system as well as T-cell related modules.
The main working horse for visualizing the results in tmod is the function tmodPanelPlot. This is really a glorified heatmap which shows both the effect size (size of the blob on the figure below) and the p-value (intensity of the color). Each column corresponds to a different comparison. Here, there will be only one column for the only comparison we made, however we need to wrap it in a list object. However, we can also use a slightly different representation to also show how many significantly up- and down-regulated3 genes are found in the enriched modules (right panel on the figure below).
par(mfrow=c(1,2))
tmodPanelPlot(list(Gambia=resC))
## calculate the number of significant genes
## per module
pie <- tmodDecideTests(g=tt$GENE_SYMBOL,
lfc=tt$logFC,
pval=tt$adj.P.Val)
names(pie) <- "Gambia"
tmodPanelPlot(list(Gambia=resC), pie=pie, grid="b")
On the right hand side, the red color on the bars indicates that all signficantly regulated in the enriched modules. The size of the bar corresponds to the AUC, and intensity of the color corresponds to the p-value. See chapter “Visualisation and presentation of results in tmod” for more information on this and other functions.
There is a substantial numer of different gene set enrichment tests. Several are implemented in tmod (see Table below for a summary). This chapter gives an overview of the possibilities for gene set enrichment analysis with tmod.
| Test | Description | Input type |
|---|---|---|
| tmodHGtest | First generation test | Two sets, foreground and background |
| tmodUtest | Wilcoxon U test | Ordered gene list |
| tmodCERNOtest | CERNO test | Ordered gene list |
| tmodZtest | variant of the CERNO test | Ordered gene list |
| tmodPLAGEtest | eigengene-based | Expression matrix |
| tmodAUC | general permutation based testing | Matrix of ranks |
| tmodGeneSetTest | permutation based on a particular statistic | A statistic (e.g. logFC) |
In the following, I will briefly describe the various tests and show examples of usage on the Gambia data set.
First generation tests were based on an overrepresentation analysis (ORA). In essence, they rely on splitting the genes into two groups: the genes of interest (foreground), such as genes that we consider to be significantly regulated in an experimental condition, and all the rest (background). For a given gene set, this results in a \(2\times 2\) contingency table. If these two factors are independent (i.e., the probability of a gene belonging to a gene set is independent of the probability of a gene being regulated in the experimental condition), then we can easily derive expected frequencies for each cell of the table. Several statistical tests exist to test whether the expected frequencies differ significantly from the observed frequencies.
In tmod, the function tmodHGtest(), performs a hypergeometric test on two groups of genes: ‘foreground’ (fg), or the list of differentially expressed genes, and ‘background’ (bg) – the gene universe, i.e., all genes present in the analysis. The gene identifiers used currently by tmod are HGNC identifiers, and we will use the GENE_SYMBOL field from the Egambia data set.
In this particular example, however, we have almost no genes which are significantly differentially expressed after correction for multiple testing: the power of the test with 10 individuals in each group is too low. For the sake of the example, we will therefore relax our selection. Normally, I’d use a q-value threshold of at least 0.001.
fg <- tt$GENE_SYMBOL[tt$adj.P.Val < 0.05 & abs( tt$logFC ) > 1]
resHG <- tmodHGtest(fg=fg, bg=tt$GENE_SYMBOL)
options(width=60)
resHG
## # tmod report (class tmodReport) 9 x 8:
## # (Showing rows 1 - 5 out of 8)
## │ID │Title │b │B
## LI.M112.0│LI.M112.0│complement activation (I) │ 4│ 11
## LI.M11.0│ LI.M11.0│enriched in monocytes (II)│ 4│ 20
## LI.M75│ LI.M75│antiviral IFN signature │ 3│ 10
## LI.S4│ LI.S4│Monocyte surface signature│ 3│ 10
## LI.S5│ LI.S5│DC surface signature │ 4│ 34
## │n │N │E │P.Value│adj.P.Val
## LI.M112.0│ 47│ 4826│ 37│2.5e-06│0.00086
## LI.M11.0│ 47│ 4826│ 21│3.4e-05│0.00591
## LI.M75│ 47│ 4826│ 31│9.9e-05│0.00857
## LI.S4│ 47│ 4826│ 31│9.9e-05│0.00857
## LI.S5│ 47│ 4826│ 12│3e-04 │0.02046
The columns in the above table contain the following:
Well, IFN signature in TB is well known. However, the numbers of genes are not high: n is the size of the foreground, and b the number of genes in fg that belong to the given module. N and B are the respective totals – size of bg+fg and number of genes that belong to the module that are found in this totality of the analysed genes. If we were using the full Gambia data set (with all its genes), we would have a different situation.
Lack of significant genes is the main problem of ORA: splitting the genes into foreground and background relies on an arbitrary threshold which will yield very different results for different sample sizes.
tmodUtest)Another approach is to sort all the genes (for example, by the respective p-value) and perform a U-test on the ranks of (i) genes belonging to the module and (ii) genes that do not belong to the module. This is a bit slower, but often works even in the case if the power of the statistical test for differential expression is low. That is, even if only a few genes or none at all are significant at acceptable thresholds, sorting them by the p-value or another similar metric can nonetheless allow to get meaningful enrichments4.
Moreover, we do not need to set arbitrary thresholds, like p-value or logFC cutoff.
The main issue with the U-test is that it detects enrichments as well as depletions – that is, modules which are enriched at the bottom of the list (e.g. modules which are never, ever regulated in a particular comparison) will be detected as well. This is often undesirable. Secondly, large modules will be reported as significant even if the actual effect size (i.e., AUC) is modest or very small, just because of the sheer number of genes in a module. Unfortunately, also the reverse is true: modules with a small number of genes, even if they consist of highly up- or down-regulated genes from the top of the list will not be detected.
l <- tt$GENE_SYMBOL
resU <- tmodUtest(l)
head(resU)
## # tmod report (class tmodReport) 7 x 6:
## # (Showing rows 1 - 5 out of 6)
## │ID │Title
## LI.M37.0│LI.M37.0│immune activation - generic cluster
## LI.M37.1│LI.M37.1│enriched in neutrophils (I)
## LI.S4│ LI.S4│Monocyte surface signature
## LI.M75│ LI.M75│antiviral IFN signature
## LI.M11.0│LI.M11.0│enriched in monocytes (II)
## │U │N1 │AUC │P.Value│adj.P.Val
## LI.M37.0│352659│ 100│ 0.75│< 2e-16│5.5e-15
## LI.M37.1│ 50280│ 12│ 0.87│4.5e-06│0.00066
## LI.S4│ 43220│ 10│ 0.90│6.9e-06│0.00066
## LI.M75│ 42996│ 10│ 0.89│8.6e-06│0.00066
## LI.M11.0│ 74652│ 20│ 0.78│9.5e-06│0.00066
nrow(resU)
## [1] 25
This list makes a lot of sense, and also is more stable than the other one: it does not depend on modules that contain just a few genes. Since the statistics is different, the b, B, n, N and E columns in the output have been replaced by the following:
A U-test has been also implemented in limma in the wilcoxGST() function.
tmodCERNOtest and tmodZtest)There are two tests in tmod which both operate on an ordered list of genes: tmodUtest and tmodCERNOtest. The U test is simple, however has two main issues. Firstly, The CERNO test, described by Yamaguchi et al. (2008), is based on Fisher’s method of combining probabilities. In summary, for a given module, the scaled ranks of genes from the module are treated as probabilities. These are then logarithmized, summed and multiplied by -2:
\[f_{CERNO}=-2 \cdot \sum_{i = 1}^{N} \ln{\frac{R_i}{N_{tot}}}\]
This statitic has the \(\chi^2\) distribution with \(2\cdot N\) degrees of freedom, where \(N\) is the number of genes in a given module and \(N_{tot}\) is the total number of genes (Yamaguchi et al. 2008).
The CERNO test is actually much more practical than other tests for most purposes and is the recommended approach. A variant called tmodZtest exists in which the p-values are combined using Stouffer’s method rather than the Fisher’s method.
PLAGE (Tomfohr, Lu, and Kepler 2005) is a gene set enrichment method based on singular value decomposition (SVD). The idea is that instead of running a statistical test (such as a t-test) on each gene separately, information present in the gene expression of all genes in a gene set is first extracted using SVD, and the resulting vector (one per gene set) is treated as a “pseudo gene” and analysed using the approppriate statistical tool.
In the tmod implementation, for each module a gene expression matrix subset is generated and decomposed using PCA using the eigengene() function. The first component is returned and a t-test comparing two groups is then performed. This limits the implementation to only two groups, but extending it for more than one group is trivial.
tmodPLAGEtest(Egambia$GENE_SYMBOL, Egambia[,-c(1:3)], group=group)
## Converting group to factor
## Calculating eigengenes...
## # tmod report (class tmodReport) 7 x 23:
## # (Showing rows 1 - 5 out of 23)
## │ID │Title │t
## LI.S4│ LI.S4│Monocyte surface signature │ -7.2
## LI.M11.0│LI.M11.0│enriched in monocytes (II) │ -6.4
## LI.M16│ LI.M16│TLR and inflammatory signaling │ -5.3
## LI.M20│ LI.M20│AP-1 transcription factor network│ -5.0
## LI.M67│ LI.M67│activated dendritic cells │ -4.7
## │D │AbsD │P.Value│adj.P.Val
## LI.S4│ -2.6│ 2.6│1.0e-07│3.0e-05
## LI.M11.0│ -2.4│ 2.4│5.5e-07│8.4e-05
## LI.M16│ -2.0│ 2.0│1.1e-05│0.0011
## LI.M20│ -1.8│ 1.8│3.2e-05│0.0024
## LI.M67│ -1.7│ 1.7│6.6e-05│0.0031
The GSEA approach (Subramanian et al. 2005) is based on similar premises as the other approaches described here. In principle, GSEA is a combination of an arbitrary scoring of a sorted list of genes and a permutation test. Although the GSEA approach has been criticized from statistical standpoint (Damian and Gorfine 2004), it remains one of the most popular tools to analyze gene sets amongst biologists. In the following, it will be shown how to use a permutation-based test with tmod.
A permutation test is based on a simple principle. The labels of observations (that is, their group assignments) are permutated and a statistic \(s_i\) is calculated for each \(i\)-th permutation. Then, the same statistic \(s_o\) is calculated for the original data set. The proportion of the permutated sets that yielded a statistic \(s_i\) equal to or higher than \(s_o\) is the p-value for a statistical hypothesis test.
First, we will set up a function that creates a permutation of the Egambia data set and repeats the limma procedure for this permutation, returning the ordering of the genes.
permset <- function(data, design) {
require(limma)
data <- data[, sample(1:ncol(data)) ]
fit <- eBayes(lmFit(data, design))
tt <- topTable(fit, coef=2, number=Inf, sort.by="n")
order(tt$P.Value)
}
In the next step, we will generate 100 random permutations. The sapply function will return a matrix with a column for each permutation and a row for each gene. The values indicate the order of the genes in each permutation. We then use the tmod function tmodAUC to calculate the enrichment of each module for each permutation.
# same design as before
design <- cbind(Intercept=rep(1, 30),
TB=rep(c(0,1), each= 15))
E <- as.matrix(Egambia[,-c(1:3)])
N <- 250 # small number for the sake of example
set.seed(54321)
perms <- sapply(1:N, function(x) permset(E, design))
pauc <- tmodAUC(Egambia$GENE_SYMBOL, perms)
dim(perms)
## [1] 5547 250
We can now calculate the true values of the AUC for each module and compare them to the results of the permutation. The parameters “order.by” and “qval” ensure that we will calculate the values for all the modules (even those without any genes in our gene list!) and in the same order as in the perms variable.
fit <- eBayes(lmFit(E, design))
tt <- topTable(fit, coef=2, number=Inf,
genelist=Egambia[,1:3])
res <- tmodCERNOtest(tt$GENE_SYMBOL, qval=Inf, order.by="n")
all(res$ID == rownames(perms))
## [1] TRUE
fnsum <- function(m) sum(pauc[m,] >= res[m,"AUC"])
sums <- sapply(res$ID, fnsum)
res$perm.P.Val <- sums / N
res$perm.P.Val.adj <- p.adjust(res$perm.P.Val)
res <- res[order(res$AUC, decreasing=T),]
head(res[order(res$perm.P.Val),
c("ID", "Title", "AUC", "adj.P.Val", "perm.P.Val.adj") ])
## # tmod report (class tmodReport) 5 x 6:
## # (Showing rows 1 - 5 out of 6)
## │ID
## LI.M16│ LI.M16
## LI.M114.1│LI.M114.1
## LI.M67│ LI.M67
## LI.M78│ LI.M78
## LI.M150│ LI.M150
## │Title
## LI.M16│TLR and inflammatory signaling
## LI.M114.1│glycerophospholipid metabolism
## LI.M67│activated dendritic cells
## LI.M78│myeloid cell cytokines, metallopeptidases and la…
## LI.M150│innate antiviral response
## │AUC │adj.P.Val│perm.P.Val.adj
## LI.M16│ 0.98│ 7.2e-05│ 0
## LI.M114.1│ 0.98│ 6.4e-02│ 0
## LI.M67│ 0.97│ 8.4e-05│ 0
## LI.M78│ 0.96│ 1.1e-01│ 0
## LI.M150│ 0.95│ 1.0e-02│ 0
Although the results are based on a small number of permutations, the results are nonetheless strikingly similar. For more permutations, they improve further. The table below is a result of calculating 100,000 permutations.
ID Title AUC adj.P.Val
LI.M37.0 immune activation - generic cluster 0.7462103 0.00000
LI.M11.0 enriched in monocytes (II) 0.7766542 0.00000
LI.M112.0 complement activation (I) 0.8455773 0.00000
LI.M37.1 enriched in neutrophils (I) 0.8703781 0.00000
LI.M105 TBA 0.8949512 0.00000
LI.S4 Monocyte surface signature 0.8974252 0.00000
LI.M150 innate antiviral response 0.9498859 0.00000
LI.M67 activated dendritic cells 0.9714730 0.00000
LI.M16 TLR and inflammatory signaling 0.9790500 0.00000
LI.M118.0 enriched in monocytes (IV) 0.8774710 0.00295
LI.M75 antiviral IFN signature 0.8927741 0.00295
LI.M127 type I interferon response 0.9455715 0.00295
LI.S5 DC surface signature 0.6833387 0.02336
LI.M188 TBA 0.8684647 0.09894
LI.M165 enriched in activated dendritic cells (II) 0.7197180 0.11600
LI.M240 chromosome Y linked 0.8157171 0.11849
LI.M20 AP-1 transcription factor network 0.8763327 0.12672
LI.M81 enriched in myeloid cells and monocytes 0.7562851 0.13202
LI.M3 regulation of signal transduction 0.7763995 0.14872
LI.M4.3 myeloid cell enriched receptors and transporters 0.8859573 0.15675
Unfortunately, the permutation approach has two main drawbacks. Firstly, it requires a sufficient number of samples – for example, with three samples in each group there are only \(6!=720\) possible permutations. Secondly, the computational load is substantial.
tmodGeneSetTestAnother approach to permutation testing is through the tmodGeneSetTest() function. This is an implementation of geneSetTest from the limma package5. Here, a statistic is used – for example the fold changes or -log10(pvalue). For each gene set, the average value of this statistic in the module is calculated and compared to a number of random samples of the same size as the module. Below, we are using again the tt object containing the results of the analysis in the Gambia data set.
tmodGeneSetTest(tt$GENE_SYMBOL, abs(tt$logFC))
## # tmod report (class tmodReport) 8 x 15:
## # (Showing rows 1 - 5 out of 15)
## │ID │Title │D
## LI.M11.0│LI.M11.0│enriched in monocytes (II) │ 4.9
## LI.M16│ LI.M16│TLR and inflammatory signaling │ 5.3
## LI.M20│ LI.M20│AP-1 transcription factor network │ 5.3
## LI.M37.0│LI.M37.0│immune activation - generic cluster│ 9.2
## LI.M67│ LI.M67│activated dendritic cells │ 6.2
## │M │N1 │AUC │P.Value│adj.P.Val
## LI.M11.0│ 0.90│ 20│ 0.78│<2e-16 │<2e-16
## LI.M16│ 1.38│ 5│ 0.98│<2e-16 │<2e-16
## LI.M20│ 1.41│ 5│ 0.88│<2e-16 │<2e-16
## LI.M37.0│ 0.82│ 100│ 0.75│<2e-16 │<2e-16
## LI.M67│ 1.48│ 6│ 0.97│<2e-16 │<2e-16
In the above table, d is the difference between the mean value of the statistic (abs(tt$logFC)) in the given module and the mean of the means of the statistic in the random samples, divided by standard deviation.
The drawback of this approach is that we are permuting the genes (rather than the samples). This may easily lead to unstable and spurious results, so care should be taken.
While a detailed comparison between different gene set enrichment algorithms is beyond the scope of this manual, it is at least interesting to demonstrate that the different algorithms return roughly similar results.
The figure below compares CERNO, geneSetTest, PLAGE, U-test and hypergeometric test. Each test was run on the same comparison (the Egambia data set, TB patients vs healthy controls). Each plot represents a comparison between the results of two organisms; each dot corresponds to a module. The values are negative log10 of p-values6; that is, values higher than 1.3 correspond to p-values below 0.05.
## Converting group to factor
## Calculating eigengenes...
The results from all algorithms are remarkably similar, but a few things can be pointed out.
By default, results produced by tmod are data frames containing one row per tested gene set / module. In certain circumstances, when multiple tests are performed, the returned object is a list in which each element is a results table. In other situations a list can be created manually. In any case, it is often necessary to extract, compare or summarize one or more result tables.
One of the most frequent demands is to somehow show differences in transcription in the gene sets between groups. This is usually quite bothersome. One possibility is to use a heatmap, another to show how all genes vary between the groups. Both these options result in messy, frequently biased pictures (for example, if only the “best” genes are selected for a heatmap).
The code below shows how to select genes from a module with the getModuleMembers() function. For this, we will use the Gambia data set and the LI.M75 interferon module.
m <- "LI.M75"
## getModuleMembers returns a list – you can choose to
## select multiple modules
genes <- getModuleMembers(m)[[1]]
sel <- Egambia$GENE_SYMBOL %in% genes
x <- data.matrix(Egambia)[sel, -c(1:3)] # expression matrix
Matix x contains expression of all genes from the selected module (one row per gene, one column per sample).
Then, heatmaps and line plots can be generated. Note that both of the approaches below are discouraged. Firstly, these representations are chaotic and hard to read. Secondly, it is easy to manipulate such plots in order to make the effects more prominent than they really are. Thirdly, they use up a lot of space and ink to convey very little useful and interpretable information, which is a sin(Tufte and Graves-Morris 2014).
##
## Attaching package: 'gplots'
## The following object is masked from 'package:stats':
##
## lowess
A better (but not perfect) approach is to use eigengenes. An eigengene is a vector of numbers which are thought to represent all genes in a gene set. It is calculated by running a principal component analysis on an expression matrix of the genes of interest. This vector can be thought of as an “average” or “representative” gene of a gene set.
Below, we calculate all eigengenes from modules in tmod and display two of them. The object eig will contain one row per module and one column per sample.
par(mfrow=c(1,2))
eig <- eigengene(Egambia[,-c(1:3)], Egambia$GENE_SYMBOL)
showGene(eig["LI.M75", ], group,
ylab="Eigengene",
main="antiviral Interferon signature")
showGene(eig["LI.M16", ], group,
ylab="Eigengene",
main="TLR and inflammatory signaling")
In fact, one can compare the eigengenes using a t.test or another statistical procedure – this is the essence of the PLAGE algorithm, described earlier.
Let us first investigate in more detail the module LI.M75, the antiviral interferon signature. We can use the evidencePlot function to see how the module is enriched in the list l.
l <- tt$GENE_SYMBOL
evidencePlot(l, "LI.M75")
In essence, this is a receiver-operator characteristic (ROC) curve, and the area under the curve (AUC) is related to the U-statistic, from which the P-value in the tmodUtest is calculated, as \(\text{AUC}=\frac{U}{n_1\cdot n_2}\). Both the U statistic and the AUC are reported. Moreover, the AUC can be used to calculate effect size according to the Wendt’s formula(Wendt 1972) for rank-biserial correlation coefficient:
\[r=1-\frac{2\cdot U}{n_1\cdot n_2} = 1 - 2\cdot\text{AUC}\]
In the above diagram, we see that nine out of the 10 genes that belong to the LI.M75 module and which are present in the Egambia data set are ranked among the top 1000 genes (as sorted by p-value).
There are three options of interest for generating evidence plots, shown below. Firstly, by using the option labels=... it is possible to indicate gene of interest on the plot. Secondly, option style="g" shows a plot similar to the K-S plots of GSEA. Thirdly, it is possible to show more than one module on a single plot.
par(mfrow=c(1,2))
evidencePlot(l, m="LI.M75", style="g")
evidencePlot(l, m=c("LI.M37.0", "LI.M75"),
gene.labels=l[1:4], col=c(2,4), legend="right")
We can summarize the output from the previously run tests (tmodUtest, tmodCERNOtest and tmodHGtest) in one table using tmodSummary. For this, we will create a list containing results from all comparisons.
resAll <- list(CERNO=resC, U=resU, HG=resHG)
#head(tmodSummary(resAll))
The table below shows the results.
| ID | Title | AUC.CERNO | q.CERNO | AUC.U | q.U | E.HG | q.HG |
|---|---|---|---|---|---|---|---|
| LI.M11.0 | enriched in monocytes (II) | 0.7767 | 9.091e-07 | 0.7767 | 0.0006569 | 20.54 | 0.005907 |
| LI.M112.0 | complement activation (I) | 0.8456 | 1.49e-05 | 0.8456 | 0.001811 | 37.34 | 0.0008581 |
| LI.M118.0 | enriched in monocytes (IV) | 0.8775 | 0.0005167 | 0.8775 | 0.001926 | NA | NA |
| LI.M127 | type I interferon response | 0.9456 | 0.01163 | 0.9456 | 0.007486 | NA | NA |
| LI.M13 | innate activation by cytosolic DNA sensing | 0.9133 | 0.03655 | NA | NA | NA | NA |
| LI.M150 | innate antiviral response | 0.9499 | 0.009957 | 0.9499 | 0.007162 | NA | NA |
tmodPanelPlotA list of result tables (or even of a single result table) can be visualized using a heatmap-like plot called here “panel plot.” The idea is to show both, effect sizes and p-values, and, optionally, also the direction of gene regulation.
In the example below, we will use the resAll object created above, containing the results from three different tests for enrichment, to compare the results of the individual tests. However, since the E column of HG test is not easily comparable to the AUC values (which are between 0 and 1), we need to scale it down. Also, we need to call it “AUC,” because otherwise we can’t show the values on the same plot.
resAll$HG$AUC <- log10(resAll$HG$E) - 0.5
ggPanelplot(resAll)
Each enrichment result corresponds to a reddish bar. The size of the bar corresponds to the effect size (AUC or log10(Enrichment) - 0.5, as it may be), and color intensity corresponds to the p-value – pale colors show p-values closer to 0.01. It is easily seen how tmodCERNOtest is the more sensitive option.
We can see that also the intercept term is enriched for genes found in monocytes and neutrophils. Note that by default, tmodPanelPlot only shows enrichments with p < 0.01, hence a slight difference from the tmodSummary output. This behavior can be modified by the q_thr option:
ggPanelplot(resAll, q_thr=1e-3)
However, one is usually interested in the direction of regulation. If a gene list is sorted by p-value, the enriched modules may contain both up- or down-regulated genes7. It is often desirable to visualize whether genes in a module go up, or go down between experimental conditions. For this, the function tmodDecideTests is used to obtain the number of significantly up- or down-regulated genes in a module.
This information must be obtained separately from the differential gene expression analysis and provided as a list to ggPanelplot. The names of this list must be identical to the names in the results list. Below, we reuse the same object for all three tests, since the DEGs (differentially expressed genes) were the same in all three comparisons.
pie <- tmodDecideTests(g=tt$GENE_SYMBOL, lfc=tt$logFC,
pval=tt$adj.P.Val)[[1]]
pie <- list(CERNO=pie, HG=pie, U=pie)
ggPanelplot(resAll, sgenes = pie)
Each mini-plot shows the effect size of the enrichment and the corresponding p-value, as before. Additionally, the fraction of up-regulated and down-regulated genes is visualized by coloring a fraction of the area of the mini-plot red or blue, respectively8.
The ggPanelplot function has several parameters, notably for filtering and labelling:
filter_row_q and filter_row_auc remove gene sets for which, respectively, the FDR p-value or the effect size are not achieved in any of the comparisons;q_cutoff: enrichments with q-values above this cutoff are considered to be absentThe ggPanelplot function returns a ggplot2 graph, and therefore allows much customization.
Given the popularity of the limma package, tmod includes functions to easily integrate with limma. In fact, if you fit a design / contrast with limma function lmFit and calculate the p-values with eBayes(), you can directly use the resulting object in tmodLimmaTest and tmodLimmaDecideTests9.
res.l <- tmodLimmaTest(fit, Egambia$GENE_SYMBOL)
length(res.l)
## [1] 2
names(res.l)
## [1] "Intercept" "TB"
head(res.l$TB)
## # tmod report (class tmodReport) 8 x 6:
## # (Showing rows 1 - 5 out of 6)
## │ID │Title
## LI.M37.0│ LI.M37.0│immune activation - generic cluster
## LI.M11.0│ LI.M11.0│enriched in monocytes (II)
## LI.M112.0│LI.M112.0│complement activation (I)
## LI.S4│ LI.S4│Monocyte surface signature
## LI.M75│ LI.M75│antiviral IFN signature
## │cerno│N1 │AUC │cES │P.Value│adj.P.Val
## LI.M37.0│ 414│ 100│ 0.73│ 2.1│< 2e-16│1.6e-14
## LI.M11.0│ 106│ 20│ 0.79│ 2.6│7.9e-08│9.7e-06
## LI.M112.0│ 76│ 11│ 0.87│ 3.4│8.4e-08│9.7e-06
## LI.S4│ 70│ 10│ 0.88│ 3.5│1.8e-07│1.6e-05
## LI.M75│ 66│ 10│ 0.86│ 3.3│7.8e-07│5.4e-05
The tmodLimmaTest function uses coefficients and p-values from the limma object to order the genes. By default, the genes are ordered by MSD (Zyla et al. 2017) (Minimum Significant Difference), rather than p-value or log fold change.
The MSD is defined as follows:
\[ \text{MSD} = \begin{cases} CI.L & \text{if logFC} > 0\\ -CI.R & \text{if logFC} < 0\\ \end{cases} \]
Where logFC is the log fold change, CI.L is the left boundary of the 95% confidence interval of logFC and CI.R is the right boundary. MSD is always greater than zero and is equivalent to the absolute distance between the confidence interval and the x axis. For example, if the logFC is 0.7 with 95% CI = [0.5, 0.9], then MSD=0.5; if logFC is -2.5 with 95% CI = [-3.0, -2.0], then MSD = 2.0.
The idea behind MSD is as follows. Ordering genes by decreasing absolute log fold change will include on the top of the list some genes close to background, for which log fold changes are grand, but so are the errors and confidence intervals, just because measuring genes with low expression is loaded with errors. Ordering genes by decreasing absolute log fold change should be avoided.
On the other hand, in a list ordered by p-values, many of the genes on the top of the list will have strong signals and high expression, which results in better statistical power and ultimately with lower p-values – even though the actual fold changes might not be very impressive.
However, by using MSD and using the boundary of the confidence interval to order the genes, the genes on the top of the list are those for which we can confidently that the actual log fold change is large. That is because the 95% confidence intervals tells us that in 95% cases, the real log fold change will be anywhere within that interval. Using its bountary closer to the x-axis (zero log fold change), we say that in 95% of the cases the log fold change will have this or larger magnitude (hence, “minimal significant difference”).
This can be visualized as follows, using the drop-in replacement for limma’s topTable function, tmodLimmaTopTable, which calculates msd as well as confidence intervals. We will consider only genes with positive log fold changes and we will show top 50 genes as ordered by the three different measures:
plotCI <- function(x, ci.l, ci.r, title="") {
n <- length(x)
plot(x,
ylab="logFC", xlab="Index",
pch=19, ylim=c( min(x-ci.l), max(x+ci.r)),
main=title)
segments(1:n, ci.l, 1:n, ci.r, lwd=5, col="#33333333")
}
par(mfrow=c(1,3))
x <- tmodLimmaTopTable(fit, coef="TB")
print(head(x))
## # Data frame like object (class data.frame) 8 x 6:
## # (Showing rows 1 - 5 out of 6)
## │logFC.TB│t.TB │msd.TB│SE.TB│d.TB │ciL.TB│ciR.TB
## 34│ 0.028│ 0.076│ -0.73│ 0.37│ 0.029│ -0.73│ 0.78
## 36│ 1.524│ 3.880│ 0.73│ 0.39│ 1.640│ 0.73│ 2.32
## 41│ 0.079│ 0.178│ -0.82│ 0.44│ 0.096│ -0.82│ 0.98
## 44│ 0.153│ 0.324│ -0.81│ 0.47│ 0.199│ -0.81│ 1.11
## 52│ -0.235│-0.617│ -0.54│ 0.38│-0.245│ -1.01│ 0.54
## │qval.TB
## 34│ 0.995
## 36│ 0.044
## 41│ 0.995
## 44│ 0.995
## 52│ 0.995
x <- x[ x$logFC.TB > 0, ] # only to simplify the output!
x2 <- x[ order(abs(x$logFC.TB), decreasing=T),][1:50,]
plotCI(x2$logFC.TB, x2$ciL.TB, x2$ciR.TB, "logFC")
x2 <- x[ order(x$qval.TB),][1:50,]
plotCI(x2$logFC.TB, x2$ciL.TB, x2$ciR.TB, "q-value")
x2 <- x[ order(x$msd.TB, decreasing=T),][1:50,]
plotCI(x2$logFC.TB, x2$ciL.TB, x2$ciR.TB, "MSD")
Black dots are logFCs, and grey bars denote 95% confidence intervals. On the left panel, the top 50 genes ordered by the fold change include several genes with broad confidence intervals, which, despite having a large log fold change, are not significantly up- or down-regulated.
On the middle panel the genes are ordered by p-value. It is clear that the log fold changes of the genes vary considerably, and that the list includes genes which are more and less strongly regulated in TB.
The third panel shows genes ordered by decreasing MSD. There is less variation in the logFC than on the second panel, but at the same time the fallacy of the first panel is avoided. MSD is a compromise between considering the effect size and the statistical significance.
What about enrichments?
x <- tmodLimmaTopTable(fit, coef="TB", genelist=Egambia[,1:3])
x.lfc <- x[ order(abs(x$logFC.TB), decreasing=T),]
x.qval <- x[ order(x$qval.TB),]
x.msd <- x[ order(x$msd.TB, decreasing=T),]
comparison <- list(
lfc=tmodCERNOtest(x.lfc$GENE_SYMBOL),
qval=tmodCERNOtest(x.qval$GENE_SYMBOL),
msd=tmodCERNOtest(x.msd$GENE_SYMBOL))
tmodPanelPlot(comparison)
In this case, the results of p-value and msd-ordering are very similar.
While MSD is a general method, it relies on a construction of confidence intervals, which might not be possible in some cases. Notably it is not supported by edgeR.
In the above example with the Gambian data set there were only two coefficients calculated in limma, the intercept and the TB. However, often there are several coefficients or contrasts which are analysed simultaneously, for example different experimental conditions or different time points. tmod includes several functions which make it easy to visualize such sets of enrichments.
The object res.l created above using the tmod function tmodLimmaTest is a list of tmod results. Any such list can be directly passed on to functions tmodSummary and tmodPanelPlot, as long as each element of the list has been created with tmodCERNOtest or a similar function. tmodSummary creates a table summarizing module information in each of the comparisons made. The values for modules which are not found in a result object (i.e., which were not found to be significantly enriched in a given comparison) are shown as NA’s:
head(tmodSummary(res.l), 5)
## ID Title
## LI.M11.0 LI.M11.0 enriched in monocytes (II)
## LI.M112.0 LI.M112.0 complement activation (I)
## LI.M118.0 LI.M118.0 enriched in monocytes (IV)
## LI.M124 LI.M124 enriched in membrane proteins
## LI.M127 LI.M127 type I interferon response
## AUC.Intercept q.Intercept AUC.TB q.TB
## LI.M11.0 0.815 0.000114 0.786 9.67e-06
## LI.M112.0 NA NA 0.867 9.67e-06
## LI.M118.0 NA NA 0.838 2.85e-03
## LI.M124 0.881 0.011487 NA NA
## LI.M127 NA NA 0.945 1.04e-02
We can neatly visualize the above information on a heatmap-like representation:
tmodPanelPlot(res.l, text.cex=0.8)
The function tmodPanelPlot has many optional arguments for customization, including options for label sizes, p value thresholds and custom functions for plotting the test results instead of just red blobs.
It is often of interest to see which enriched modules go up, and which go down? Specifically, we would like to see, for each module, how many genes are up-, and how many genes are down-regulated. tmodPanelPlot takes an optional argument, pie, which contains information on significantly regulated genes in modules. We can conveniently generate it from a limma linear fit object with the tmodLimmaDecideTests function:
pie <- tmodLimmaDecideTests(fit, genes=Egambia$GENE_SYMBOL)
head(pie$TB[ order( pie$TB[,"up"], decreasing=T), ])
## down N up
## DC.M3.4 0 11 9
## DC.M4.2 0 16 7
## LI.M11.0 0 16 4
## LI.M37.0 0 110 4
## LI.M112.0 0 9 4
## LI.M165 0 24 4
data(tmod)
getModuleMembers("DC.M3.4")
## $DC.M3.4
## [1] "IFIH1" "IRF7" "PARP14" "IFIT2"
## [5] "IFI35" "SAMD9L" "STAT1" "OAS2"
## [9] "IFIT5" "ATF3" "SEPT4" "HERC6"
## [13] "IFITM1" "TRIM78P" "EIF2AK2" "AIM2"
## [17] "MT1A" "MOV10" "CCL8" "HELZ2"
## [21] "ZBP1" "WARS" "LAP3" "GBP5"
## [25] "TNFSF10" "GBP1" "FBXO6" "PARP10"
## [29] "TRIM22" "GBP3" "ZNF684" "CARD17"
## [33] "GALM" "DHX58" "CEACAM1" "UBE2L6"
## [37] "PML" "APOL6" "SOCS1" "LGALS3BP"
## [41] "SCO2" "DDX58" "TNFAIP6" "IDO1"
## [45] "MT2A" "GBP6" "STAT2" "TIMM10"
## [49] "PARP12" "PLSCR1" "PARP9" "LOC400759"
## [53] "GBP4"
The pie object is a list. Each element of the list corresponds to one coefficient and is a data frame with the columns “Down,” “Zero” and “Up” (in that order). Importantly, all names of the “res.l” list must correspond to an item in the pie list.
all(names(pie) %in% names(res.l))
## [1] TRUE
We can now use this information in tmodPanelPlot:
ggPanelplot(res.l, sgenes = pie)
There is also a more general function, tmodDecideTests that also produces a ggPanelplot-compatible object, a list of data frames with gene counts. However, instead of taking a limma object, it requires (i) a gene name, (ii) a vector or a matrix of log fold changes, and (iii) a vector or a matrix of p-values. We can replicate the result of tmodLimmaDecideTests above with the following commands:
tt.I <-
topTable(fit, coef="Intercept", number=Inf, sort.by="n")
tt.TB <- topTable(fit, coef="TB", number=Inf, sort.by="n")
pie2 <- tmodDecideTests(Egambia$GENE_SYMBOL,
lfc=cbind(tt.I$logFC, tt.TB$logFC),
pval=cbind(tt.I$adj.P.Val, tt.TB$adj.P.Val))
identical(pie[[1]], pie2[[1]])
## [1] TRUE
The fact that tmod relies on a single ordered list of genes makes it useful in many other situations in which such a list presents itself.
Genes can be ordered by their absolute correlation with a variable or even a data set or a module. For example, one can ask the question about a function of a particular unknown gene – such as ANKRD22, annotated as “ankyrin repeat domain 22.”
x <- E[ match("ANKRD22", Egambia$GENE_SYMBOL), ]
cors <- t(cor(x, t(E)))
ord <- order(abs(cors), decreasing=TRUE)
head(tmodCERNOtest(Egambia$GENE_SYMBOL[ ord ]))
## # tmod report (class tmodReport) 8 x 6:
## # (Showing rows 1 - 5 out of 6)
## │ID
## LI.M37.0│ LI.M37.0
## LI.M165│ LI.M165
## LI.M11.0│ LI.M11.0
## LI.M112.0│LI.M112.0
## LI.M75│ LI.M75
## │Title │cerno
## LI.M37.0│immune activation - generic cluster │ 431
## LI.M165│enriched in activated dendritic cells (II)│ 113
## LI.M11.0│enriched in monocytes (II) │ 114
## LI.M112.0│complement activation (I) │ 81
## LI.M75│antiviral IFN signature │ 74
## │N1 │AUC │cES │P.Value│adj.P.Val
## LI.M37.0│ 100│ 0.72│ 2.2│< 2e-16│< 2e-16
## LI.M165│ 19│ 0.78│ 3.0│2.2e-09│3.8e-07
## LI.M11.0│ 20│ 0.81│ 2.8│5.1e-09│5.9e-07
## LI.M112.0│ 11│ 0.85│ 3.7│1.3e-08│1.1e-06
## LI.M75│ 10│ 0.90│ 3.7│3.3e-08│2.3e-06
Clearly, ANKRD22 correlates to other immune related genes, most of all these which are interferon inducible.
In another example, consider correlation between genes and the first principal component (“eigengene”) of a group of genes of unknown function10. To demonstrate the method, we will select the genes from the module “LI.M75.” For this, we use the function getGenes with the optional argument genes used to filter the genes in the module by the genes present in the data set.
g <- getGenes("LI.M75", genes=Egambia$GENE_SYMBOL,
as.list=TRUE)
x <- E[ match(g[[1]], Egambia$GENE_SYMBOL), ]
## calculating the "eigengene" (PC1)
pca <- prcomp(t(x), scale.=T)
eigen <- pca$x[,1]
cors <- t(cor(eigen, t(E)))
## order all genes by the correlation between the gene and the PC1
ord <- order(abs(cors), decreasing=TRUE)
head(tmodCERNOtest(Egambia$GENE_SYMBOL[ ord ]))
## # tmod report (class tmodReport) 8 x 6:
## # (Showing rows 1 - 5 out of 6)
## │ID
## LI.M165│ LI.M165
## LI.M75│ LI.M75
## LI.M37.0│LI.M37.0
## LI.M127│ LI.M127
## LI.M150│ LI.M150
## │Title │cerno
## LI.M165│enriched in activated dendritic cells (II)│ 155
## LI.M75│antiviral IFN signature │ 104
## LI.M37.0│immune activation - generic cluster │ 364
## LI.M127│type I interferon response │ 64
## LI.M150│innate antiviral response │ 64
## │N1 │AUC │cES │P.Value│adj.P.Val
## LI.M165│ 19│ 0.82│ 4.1│5.5e-16│1.9e-13
## LI.M75│ 10│ 0.94│ 5.2│2.3e-13│3.9e-11
## LI.M37.0│ 100│ 0.67│ 1.8│1.1e-11│1.3e-09
## LI.M127│ 5│ 1.00│ 6.4│5.5e-10│4.5e-08
## LI.M150│ 5│ 1.00│ 6.4│6.4e-10│4.5e-08
Transcriptional modules can help to understand the biological meaning of the calculated multivariate transformations. For example, consider a principal component analysis (PCA), visualised using the pca3d package (Weiner 2013):
mypal <- c("#E69F00", "#56B4E9")
pca <- prcomp(t(E), scale.=TRUE)
col <- mypal[ factor(group) ]
par(mfrow=c(1, 2))
l<-pcaplot(pca, group=group, col=col)
legend("topleft", as.character(l$groups),
pch=l$pch,
col=l$colors, bty="n")
l<-pcaplot(pca, group=group, col=col, components=3:4)
legend("topleft", as.character(l$groups),
pch=l$pch,
col=l$colors, bty="n")
The fourth component looks really interesting. Does it correspond to the modules which we have found before? Each principal component is, after all, a linear combination of gene expression values multiplied by weights (or scores) which are constant for a given component. The i-th principal component for sample j is given by
\[PC_{i,j} = \sum_{k} w_{i,k} \cdot x_{k,j}\]
where \(k\) is the index of the variables (genes in our case), \(w_{i,k}\) is the weight associated with the \(i\)-th component and the \(k\)-th variable (gene), and \(x_{k,j}\) is the value of the variable \(k\) for the sample \(j\); that is, the gene expression of gene \(k\) in the sample \(j\). Genes influence the position of a sample along a given component the more the larger their absolute weight for that component.
For example, on the right-hand figure above, we see that samples which were taken from TB patients have a high value of the principal component 4; the opposite is true for the healthy controls. The genes that allow us to differentiate between these two groups will have very large, positive weights for genes highly expressed in TB patients, and very large, negative weights for genes which are highly expressed in NID, but not TB.
We can sort the genes by their weight in the given component, since the weights are stored in the pca object in the “rotation” slot, and use the tmodUtest function to test for enrichment of the modules.
o <- order(abs(pca$rotation[,4]), decreasing=TRUE)
l <- Egambia$GENE_SYMBOL[o]
res <- tmodUtest(l)
head(res)
## # tmod report (class tmodReport) 7 x 6:
## # (Showing rows 1 - 5 out of 6)
## │ID │Title
## LI.M37.0│LI.M37.0│immune activation - generic cluster
## LI.M37.1│LI.M37.1│enriched in neutrophils (I)
## LI.M75│ LI.M75│antiviral IFN signature
## LI.M11.0│LI.M11.0│enriched in monocytes (II)
## LI.S5│ LI.S5│DC surface signature
## │U │N1 │AUC │P.Value│adj.P.Val
## LI.M37.0│339742│ 100│ 0.72│3.1e-14│1.1e-11
## LI.M37.1│ 50096│ 12│ 0.87│5.4e-06│0.00067
## LI.M75│ 43379│ 10│ 0.90│5.8e-06│0.00067
## LI.M11.0│ 74343│ 20│ 0.77│1.2e-05│0.00103
## LI.S5│115007│ 34│ 0.71│1.7e-05│0.00118
Perfect, this is what we expected: we see that the neutrophil / interferon signature which is the hallmark of the TB biosignature. What about other components? We can run the enrichment for each component and visualise the results using tmod’s functions tmodSummary and tmodPanelPlot. Below, we use the filter.empty option to omit the principal components which show no enrichment at all.
# Calculate enrichment for each component
gs <- Egambia$GENE_SYMBOL
# function calculating the enrichment of a PC
gn.f <- function(r) {
tmodCERNOtest(gs[order(abs(r), decreasing=T)],
qval=0.01)
}
x <- apply(pca$rotation, 2, gn.f)
tmodSummary(x, filter.empty=TRUE)[1:5,]
## ID Title AUC.PC3
## LI.M11.0 LI.M11.0 enriched in monocytes (II) NA
## LI.M112.0 LI.M112.0 complement activation (I) NA
## LI.M118.0 LI.M118.0 enriched in monocytes (IV) NA
## LI.M127 LI.M127 type I interferon response NA
## LI.M144 LI.M144 cell cycle, ATP binding 0.989
## q.PC3 AUC.PC4 q.PC4 AUC.PC9 q.PC9 AUC.PC14
## LI.M11.0 NA 0.773 2.14e-07 NA NA NA
## LI.M112.0 NA 0.751 4.91e-05 NA NA NA
## LI.M118.0 NA 0.853 5.03e-05 NA NA NA
## LI.M127 NA 0.959 3.71e-03 NA NA NA
## LI.M144 0.00605 NA NA NA NA NA
## q.PC14 AUC.PC30 q.PC30
## LI.M11.0 NA NA NA
## LI.M112.0 NA NA NA
## LI.M118.0 NA NA NA
## LI.M127 NA NA NA
## LI.M144 NA NA NA
The following plot shows the same information in a visual form. The size of the blobs corresponds to the effect size (AUC value), and their color – to the q-value.
tmodPanelPlot(x)
However, we might want to ask, for each module, how many of the genes in that module have a negative, and how many have a positive weight? We can use the function tmodDecideTests for that. For each principal component shown, we want to know how many genes have very large (in absolute terms) weights – we can use the “lfc” parameter of tmodDecideTests for that. We define here “large” as being in the top 25% of all weights in the given component. For this, we need first to calculate the 3rd quartile (top 25% threshold). We will show only 10 components:
qfnc <- function(r) quantile(r, 0.75)
qqs <- apply(pca$rotation[,1:10], 2, qfnc)
pie <- tmodDecideTests(gs, lfc=pca$rotation[,1:10], lfc.thr=qqs)
ggPanelplot(x[1:10], sgenes = pie)
For another way of visualizing enrichment, we can use the tagcloud package (Weiner 2014). P-Values will be represented by the size of the tags, while AUC – which is a proxy for the effect size – will be shown by the color of the tag, from grey (AUC=0.5, random) to black (1):
library(tagcloud)
## Loading required package: Rcpp
w <- -log10(res$P.Value)
c <- smoothPalette(res$AUC, min=0.5)
tags <- strmultline(res$Title)
tagcloud(tags, weights=w, col=c)
We can now annotate the PCA axes using the tag clouds; however, see below for a shortcut in tmod.
par(mar=c(1,1,1,1))
o3 <- order(abs(pca$rotation[,3]), decreasing=TRUE)
l3 <- Egambia$GENE_SYMBOL[o3]
res3 <- tmodUtest(l3)
layout(matrix(c(3,1,0,2),2,2,byrow=TRUE),
widths=c(1/3, 2/3), heights=c(2/3, 1/3))
col <- mypal[ factor(group) ]
# note -- PC4 is now x axis!!
l <- pcaplot(pca, group=group, components=4:3,
col=col, cex=1.8)
legend("topleft",
as.character(l$groups),
pch=l$pch,
col=l$colors, bty="n")
tagcloud(tags, weights=w, col=c, fvert= 0)
tagcloud(strmultline(res3$Title),
weights=-log10(res3$P.Value),
col=smoothPalette(res3$AUC, min=0.5),
fvert=1)
As mentioned previously, there is a way of doing it all with tmod much more quickly, in just a few lines of code:
Note that plot.params are just parameters which will be passed to the pca2d function. However, remember that is must be a list.
To plot the PCA, tmod uses the function pcaplot(), but you can actually do it yourself by providing tmodPCA with a suitable function. The only requirement is that the function takes named parameters “pca” and “components”:
plotf <- function(pca, components) {
id1 <- components[1]
id2 <- components[2]
print(id1)
print(id2)
plot(pca$x[,id1], pca$x[,id2])
}
ret <- tmodPCA(pca, genes=Egambia$GENE_SYMBOL,
components=3:4, plotfunc=plotf)
## [1] 3
## [1] 4
Alternatively, you can use the function “pca2d” from the pca3d package:
if(require(pca3d)) plotf <- pca2d
## Loading required package: pca3d
ret <- tmodPCA(pca, genes=Egambia$GENE_SYMBOL,
components=3:4, plotfunc=plotf, plot.params=list(group=group))
Tmod was created with transcriptional modules in mind. This is why the word “module” is used throughout tmod. However, any gene or variable set – depending on application – is a “module” in tmod. These data sets can be used with most of tmod functions (including the gene set enrichment test functions) by specifying it with the option mset=, for example tmodCERNOtest(..., mset=mytmodobject).
By default, tmod uses the modules published by Li et al. (Li et al. 2014) (LI). A second set of modules was published by Chaussabel et al. (Chaussabel et al. 2008) (DC); new module definitions were described by Banchereau et al. (Banchereau et al. 2012) and can be found on a public website11.
Depending on the mset parameter to the test functions, either the LI or DC sets are used, or both, if the mset=all has been specified.
l <- tt$GENE_SYMBOL
res2 <- tmodUtest(l, mset="all")
head( res2 )
## # tmod report (class tmodReport) 7 x 6:
## # (Showing rows 1 - 5 out of 6)
## │ID │Title │U │N1 │AUC
## LI.M37.0│LI.M37.0│immune activation - generic cluster│352659│ 100│ 0.75
## DC.M4.2│ DC.M4.2│Inflammation │ 91352│ 20│ 0.95
## DC.M1.2│ DC.M1.2│Interferon │ 73612│ 17│ 0.90
## DC.M3.2│ DC.M3.2│Inflammation │ 96366│ 24│ 0.84
## DC.M5.15│DC.M5.15│Neutrophils │ 65289│ 16│ 0.85
## │P.Value│adj.P.Val
## LI.M37.0│< 2e-16│9.7e-15
## DC.M4.2│1.7e-12│5.1e-10
## DC.M1.2│5.7e-09│9.6e-07
## DC.M3.2│6.4e-09│9.6e-07
## DC.M5.15│7.2e-07│8.8e-05
As you can see, the information contained in both module sets is partially redundant.
The tmod package stores its data in two data frames and two lists. This object is contained in a list called tmod, which is loaded with data("tmod"). The names mimick the various environments from Annotation.dbi packages, but currently the objects are just two lists and two data frames.
tmod$MODULES is a data frame which contains general module information as defined in the supplementary materials for Li et al. (Li et al. 2014) and Chaussabel et al. (Chaussabel et al. 2008)tmod$GENES is a data frame which contains general gene information, including columns with HGNC (“primary”), as well as ENTREZ and REFSEQ identifiers.tmod$MODULES2GENES is a list with module IDs (same as in the “ID” column of tmod$MODULES) as names. Every element of the list is a character vector with IDs (“primary” column of tmod$GENES) of the genes which are included in this module.tmod$GENES2MODULES is a list with gene IDs (same as in the “primary” column of tmod$GENES) as names. Every element of the list is a character vector with IDs of the modules in which the gene is found.The gene sets used by tmod are objects of class tmod. The default object used in the gene set enrichment tests in the tmod package can be loaded into the environment with the command data(tmod):
data(tmod)
tmod
## An object of class "tmodGS"
## 606 gene sets, 12712 genes
Objects of the class tmod can be easily generated from a number of data sources (see below). Several functions can be used on the objects:
length(tmod)
## [1] 606
sel <- grep("Interferon", tmod$MODULES$Title, ignore.case=TRUE)
ifn <- tmod[sel]
ifn
## An object of class "tmodGS"
## 0 gene sets, 0 genes
length(ifn)
## [1] 0
Using these variables, one can apply any other tool for the analysis of enriched module sets available, for example, the geneSetTest function from the limma package (Smyth et al. (2005))12. We will first run tmodCERNOtest setting the qval to Inf to get p-values for all modules. Then, we apply the geneSetTest function to each module. Note that we are using the actual geneSetTest function13.
data(tmod)
res <- tmodCERNOtest(tt$GENE_SYMBOL, qval=Inf)
gstest <- function(x) {
sel <- tt$GENE_SYMBOL %in% tmod$MODULES2GENES[[x]]
geneSetTest(sel, tt$logFC, ranks.only=FALSE)
}
gst <- sapply(res$ID, gstest)
Are the results from CERNO and geneSetTest similar?
plot(res$P.Value, gst,
log="xy", pch=19,
col="#33333366",
xlab="P Values from tmod",
ylab="P Values from geneSetTest")
abline(0,1)
abline(h=0.01, col="grey")
abline(v=0.01, col="grey")
On the plot above, the p-values from tmod are plotted against the p-values from geneSetTest. As you can see, in this particular example, both methods give very similar results.
It is possible to use any kind of arbitrary or custom gene set definitions. These custom definition of gene sets takes form of a list which is then provided as the mset parameter to the test functions. The list in question must have the following members:
The tests in the tmod package will accept a simple list that contains the above fields. However, the function makeTmodGS can be used conveniently to create a tmod object. This function requires only two parameters: gs – a data frame, as described above – and a mapping between gene sets and gene identifiers, in the parameter gs2gene.
Here is a minimal definition of such a set:
mymset <- makeTmodGS(
gs=data.frame(ID=c("A", "B"),
Title=c("A title",
"B title")),
gs2gene=list(
A=c("G1", "G2"),
B=c("G3", "G4"))
)
mymset
## An object of class "tmodGS"
## 2 gene sets, 4 genes
Whether the gene IDs are Entrez, or something else entirely does not matter, as long as they matched the provided input to the test functions.
The tests in the tmod package can take any arbitrary module definitions. While tmod – for many reasons – cannot distribute all module sets, it can easily import gene sets from many sources. A few of these will be discussed below.
The MSigDB database from the Broad institute is an interesting collection of gene sets (actually, multiple collections), including Reactome pathways, gene ontologies (GO) and many other data sets. Moreover, it is the basis for the GSEA program.
The whole MSigDB is provided by the msigdbr package from BioConductor. We can then use tmod function makeTmodFromDataFrame to convert the msigdbr data frame into one large tmod object:
library(msigdbr)
msig <- msigdbr()
msig <- makeTmodFromDataFrame(df=msig,
feature_col="gene_symbol",
module_col="gs_id", title_col="gs_name",
extra_module_cols=c("gs_cat", "gs_subcat", "gs_url",
"gs_exact_source", "gs_description"))
## making Tmod
Alternatively, you can the MSigDB in XML format14. This file can be accessed at the from the pages of MSigDB at the Broad Institute http://software.broadinstitute.org/gsea/msigdb/download_file.jsp?filePath=/resources/msigdb/6.1/msigdb_v6.1.xml – follow the link, register and log in, and save the zip archive on your disk (roughly 113 MB). The ZIP file contains an XML file (called ‘msigdb_v2022.1.Hs.xml’ at the time of writing) which you can import into tmod.
Importing MSigDB from XML is easy – tmod has a function specifically for that purpose. Once you have downloaded the MSigDB file, you can create the tmod-compatible R object with one command15. However, the tmod function tmodImportMsigDB() can also use this format, look up the manual page:
msig <- tmodImportMSigDB("msigdb_v2022.1.Hs.xml")
That’s it – now you can use the full MSigDB for enrichment tests:
res <- tmodCERNOtest(tt$GENE_SYMBOL, mset=msig)
head(res)
## # tmod report (class tmodReport) 8 x 6:
## # (Showing rows 1 - 5 out of 6)
## │ID
## M40997│M40997
## M40868│M40868
## M40996│M40996
## M40995│M40995
## M40998│M40998
## │Title
## M40997│HOWARD_PBMC_INACT_MONOV_INFLUENZA_A_INDONESIA_05_2005_H5N1_AGE_19_39YO_…
## M40868│ZAK_PBMC_MRKAD5_HIV_1_GAG_POL_NEF_AGE_20_50YO_1DY_UP
## M40996│HOWARD_NEUTROPHIL_INACT_MONOV_INFLUENZA_A_INDONESIA_05_2005_H5N1_AGE_18…
## M40995│HOWARD_MONOCYTE_INACT_MONOV_INFLUENZA_A_INDONESIA_05_2005_H5N1_AGE_18_4…
## M40998│HOWARD_DENDRITIC_CELL_INACT_MONOV_INFLUENZA_A_INDONESIA_05_2005_H5N1_AG…
## │cerno│N1 │AUC │cES │P.Value│adj.P.Val
## M40997│ 685│ 111│ 0.82│ 3.1│<2e-16 │<2e-16
## M40868│ 723│ 147│ 0.74│ 2.5│<2e-16 │<2e-16
## M40996│ 498│ 80│ 0.81│ 3.1│<2e-16 │<2e-16
## M40995│ 430│ 73│ 0.78│ 2.9│<2e-16 │<2e-16
## M40998│ 361│ 54│ 0.84│ 3.3│<2e-16 │<2e-16
The results are quite typical for MSigDB, which is quite abundant with similar or overlapping gene sets. As the first results, we see, again, interferon response, as well as sets of genes which are significantly upregulated after yellow fever vaccination – and which are also interferon related. We might want to limit our analysis only to the 50 “hallmark” module categories:
sel <- msig$gs$gs_cat == "H"
tmodCERNOtest(tt$GENE_SYMBOL, mset=msig[sel] )
## # tmod report (class tmodReport) 8 x 9:
## # (Showing rows 1 - 5 out of 9)
## │ID │Title │cerno│N1 │AUC │cES
## M5913│M5913│HALLMARK_INTERFERON_GAMMA_RESPONSE │ 222│ 41│ 0.78│ 2.7
## M5921│M5921│HALLMARK_COMPLEMENT │ 216│ 55│ 0.70│ 2.0
## M5911│M5911│HALLMARK_INTERFERON_ALPHA_RESPONSE │ 108│ 20│ 0.76│ 2.7
## M5946│M5946│HALLMARK_COAGULATION │ 178│ 49│ 0.68│ 1.8
## M5930│M5930│HALLMARK_EPITHELIAL_MESENCHYMAL_TRANSITION│ 208│ 71│ 0.64│ 1.5
## │P.Value│adj.P.Val
## M5913│8.5e-15│4.3e-13
## M5921│6.2e-09│1.5e-07
## M5911│3.2e-08│5.3e-07
## M5946│1.5e-06│1.8e-05
## M5930│0.00026│0.0022
We see both – the prominent interferon response and the complement activation. Also, in addition, TNF-\(\alpha\) signalling via NF-\(\kappa\beta\).
Other particularly interesting subsets of MSigDB are shown in the table below. “Category” and “Subcategory” are columns in the msig$MODULES data frame.
| Subset | Description | Category | Subcategory |
|---|---|---|---|
| Hallmark | Curated set of gene sets | H | |
| GO / BP | Gene ontology, biological process | C5 | BP |
| GO / CC | Gene ontology, cellular component | C5 | CC |
| GO / MF | Gene ontology, molecular function | C5 | MF |
| Biocarta | Molecular pathways from Biocarta | C2 | CP:BIOCARTA |
| KEGG | Pathways from Kyoto Encyclopedia of Genes and Genomes | C2 | CP:KEGG |
| Reactome | Pathways from the Reactome pathway database | C2 | CP:REACTOME |
ENSEMBL databases for a multitude of organisms can be accessed using the R package biomaRt.
Importantly, biomaRt allows to map different types of identifiers onto each other; this allows for example to obtain Entrez gene identifiers (required by KEGG or GO) .
Below, we will use biomaRt to obtain gene ontology (GO) terms and Reactome pathway IDs for genes in the Egambia data set, using the Entrez gene ID’s (column EG in the Egambia data set).
library(biomaRt)
mart <- useMart("ensembl", dataset = "hsapiens_gene_ensembl")
bm <- getBM(filters="hgnc_symbol",
values = Egambia$GENE_SYMBOL,
attributes = c( "hgnc_symbol", "entrezgene", "reactome", "go_id", "name_1006", "go_linkage_type"),
mart=mart)
In the following code, we construct the modules data frame m and the gene set to gene mappings m2g (each twice: once for GO, and once for Reactome). We only keep the terms that have at least 10 and not more than 100 associated Entrez gene ID’s.
m2g_r <- with(bm[ bm$reactome != "", ], split(hgnc_symbol, reactome))
m2g_g <- with(bm[ bm$go_id != "", ], split(hgnc_symbol, go_id))
ll <- lengths(m2g_r)
m2g_r <- m2g_r[ ll >= 5 & ll <= 250 ]
ll <- lengths(m2g_g)
m2g_g <- m2g_g[ ll >= 5 & ll <= 250 ]
m_r <- data.frame(ID=names(m2g_r), Title=names(m2g_r))
m_g <- data.frame(ID=names(m2g_g),
Title=bm$name_1006[ match(names(m2g_g), bm$go_id)])
ensemblR <- makeTmod(modules=m_r, modules2genes=m2g_r)
ensemblGO <- makeTmod(modules=m_g, modules2genes=m2g_g)
## these objects are no longer necessary
rm(bm, m_g, m_r, m2g_r, m2g_g)
GO terms are perhaps the most frequently used type of gene sets in GSE, in particular because they are available for a much larger number of organisms than other gene sets (like KEGG pathways).
There are many sources to obtain GO definitions. As described in the previous sections, GO’s can be also obtained from ENSEMBL via biomaRt and from MSigDB. In fact, MSigDB may be the easiest way.
However, GO annotations can also be obtained from AnnotationDBI Bioconductor packages as shown below. Note that the Entrez gene IDs are in the EG column of the Egambia object.
library(org.Hs.eg.db)
## Loading required package: AnnotationDbi
## Loading required package: stats4
## Loading required package: BiocGenerics
##
## Attaching package: 'BiocGenerics'
## The following objects are masked from 'package:tmod':
##
## IQR, mad, sd, var, xtabs
## The following object is masked from 'package:limma':
##
## plotMA
## The following objects are masked from 'package:stats':
##
## IQR, mad, sd, var, xtabs
## The following objects are masked from 'package:base':
##
## anyDuplicated, append, as.data.frame, basename, cbind, colnames,
## dirname, do.call, duplicated, eval, evalq, Filter, Find, get, grep,
## grepl, intersect, is.unsorted, lapply, Map, mapply, match, mget,
## order, paste, pmax, pmax.int, pmin, pmin.int, Position, rank,
## rbind, Reduce, rownames, sapply, setdiff, sort, table, tapply,
## union, unique, unsplit, which.max, which.min
## Loading required package: Biobase
## Welcome to Bioconductor
##
## Vignettes contain introductory material; view with
## 'browseVignettes()'. To cite Bioconductor, see
## 'citation("Biobase")', and for packages 'citation("pkgname")'.
## Loading required package: IRanges
## Loading required package: S4Vectors
##
## Attaching package: 'S4Vectors'
## The following object is masked from 'package:gplots':
##
## space
## The following objects are masked from 'package:base':
##
## expand.grid, I, unname
##
mtab <- toTable(org.Hs.egGO)
There are over 15,000 GO terms and 250,000 genes in the mtab mapping; however, many of them map to either a very small or a very large number of genes. At this stage, it could also be useful to remove any genes not present in our particular data set, but that would make the resulting tmod object less flexible. However, we may be interested only in the “biological process” ontology for now.
mtab <- mtab[ mtab$Ontology == "BP", ]
m2g <- split(mtab$gene_id, mtab$go_id)
## remove the rather large object
rm(mtab)
ll <- lengths(m2g)
m2g <- m2g[ ll >= 10 & ll <= 100 ]
length(m2g)
## [1] 2889
Using the mapping and the GO.db it is easy to create a module set suitable for tmod:
library(GO.db)
##
gt <- toTable(GOTERM)
m <- data.frame(ID=names(m2g))
m$Title <- gt$Term[ match(m$ID, gt$go_id) ]
goset <- makeTmod(modules=m, modules2genes=m2g)
rm(gt, m2g, m)
This approach allows an offline mapping to GO terms, assuming the necessary DBI is installed. Using AnnotationDBI databases such as org.Hs.eg.db has, however, also two major disadvantages: firstly, the annotations are available for a small number of organisms. Secondly, the annotations in ENSEMBL may be more up to date.
We can now compare the results of the analysis with MSigDB. There is one hitch, though. The authors of MSigDB decided to use their own identifiers instead of GO identifiers. The GO identifiers can still be extracted from MSigDB, but can only be found in the field EXTERNAL_DETAILS_URL. Below, the function renameMods is used to replace the MSigDB identifiers with GO identifiers.
msig.bp <- msig[ msig$gs$gs_subcat == "GO:BP" ]
go_ids <- gsub(".*/", "", msig.bp$gs$gs_url)
names(msig.bp$gs2gv) <- go_ids
msig.bp$gs$ID <- go_ids
Now we can run the enrichment on tt with both data sets and compare the results. Note, however, that while systematic gene names are used in MSigDB, the object goset was created from org.Hs.eg.db and uses Entrez identifiers. Also, we will make both sets directly comparable by filtering for the common genes, and we will request a result for all modules, even if they are not significant.
both <- intersect(msig.bp$gs$ID, goset$gs$ID)
msig.bp <- msig.bp[both]
goset.both <- goset[both]
rescomp <- list()
rescomp$orghs <-
tmodCERNOtest(tt$EG, mset=goset.both, qval=Inf, order.by="n")
rescomp$msigdb <-
tmodCERNOtest(tt$GENE_SYMBOL, mset=msig.bp, qval=Inf, order.by="n")
all(rownames(rescomp$msigdb) == rownames(rescomp$orghs))
## [1] TRUE
plot(rescomp$msigdb$P.Value, rescomp$orghs$P.Value, log="xy",
xlab="MSigDB GO", ylab="org.Hs.eg.db GO", bty="n")
abline(0, 1, col="grey")
The differences are quite apparent, and most likely due to the differences in the versions of the GO database.
One way to obtain KEGG pathway gene sets is to use the MSigDB as described above. However, alternatively and for other organisms it is possible to directly obtain the pathway definitions from KEGG. The code below might take a lot of time on a slow connection.
library(KEGGREST)
pathways <- keggLink("pathway", "hsa")
## get pathway Names in addition to IDs
paths <- sapply(unique(pathways), function(p) keggGet(p)[[1]]$NAME)
m <- data.frame(ID=unique(pathways), Title=paths)
## m2g is the mapping from modules (pathways) to genes
m2g <- split(names(pathways), pathways)
## kegg object can now be used with tmod
kegg <- makeTmod(modules=m, modules2genes=m2g)
Note that KEGG uses a slightly modified version of Entrez identifiers – each numeric identifier is preceded by a three letter species code (e.g. “hsa” for humans) followed by a colon:
eg <- paste0("hsa:", tt$EG)
tmodCERNOtest(eg, mset="kegg")
Again, the most important part is to ensure that the gene identifiers in the tmod object (kegg in this case) correspond to the gene identifiers in in the ordered list.
For the purposes of an example, the code below shows how to parse the XML MSigDB file using the R package XML. Essentially, this is the same code that tmodImportMsigDB is using:
library(XML)
foo <- xmlParse( "msigdb_v2022.1.Hs.xml" )
foo2 <- xmlToList(foo)
There are over 30,000 “gene sets” (equivalent to modules in tmod) defined. Each member of foo2 is a named character vector:
path1 <- foo2[[1]]
class(path1)
## [1] "character"
names(path1)
## [1] "STANDARD_NAME" "SYSTEMATIC_NAME" "HISTORICAL_NAME"
## [4] "ORGANISM" "PMID" "AUTHORS"
## [7] "GEOID" "EXACT_SOURCE" "GENESET_LISTING_URL"
## [10] "EXTERNAL_DETAILS_URL" "CHIP" "CATEGORY_CODE"
## [13] "SUB_CATEGORY_CODE" "CONTRIBUTOR" "CONTRIBUTOR_ORG"
## [16] "DESCRIPTION_BRIEF" "DESCRIPTION_FULL" "TAGS"
## [19] "MEMBERS" "MEMBERS_SYMBOLIZED" "MEMBERS_EZID"
## [22] "MEMBERS_MAPPING" "FILTERED_BY_SIMILARITY" "FOUNDER_NAMES"
## [25] "REFINEMENT_DATASETS" "VALIDATION_DATASETS"
For our example analysis, we will use only human gene sets. We further need to make sure there are no NULLs in the list.
orgs <- sapply(foo2, function(x) x["ORGANISM"])
unique(orgs)
## [1] "Homo sapiens" "Mus musculus" "Rattus norvegicus"
## [4] "Macaca mulatta" "Danio rerio" NA
foo3 <- foo2[ orgs == "Homo sapiens" ]
foo3 <- foo3[ ! sapply(foo3, is.null) ]
Next, construct the modules data frame. We will use four named fields for each vector, which contain the ID (systematic name), description, category and subcategory:
modules <- t(sapply(foo3,
function(x)
x[ c("SYSTEMATIC_NAME", "STANDARD_NAME", "CATEGORY_CODE", "SUBCATEGORY_CODE") ]))
colnames(modules) <- c( "ID", "Title", "Category", "Subcategory" )
modules <- data.frame(modules, stringsAsFactors=FALSE)
Then, we create the modules to genes mapping and the GENES data frame. For this, we use the MEMBERS_SYMBOLIZED field, which is a comma separated list of gene symbols belonging to a particular module:
m2g <- lapply(foo3,
function(x) strsplit( x["MEMBERS_SYMBOLIZED"], "," )[[1]])
names(m2g) <- modules$ID
mymsig <- makeTmod(modules=modules, modules2genes=m2g)
mymsig
## An object of class "tmodGS"
## 29584 gene sets, 40981 genes
From now on, you can use the object mymsig with tmod enrichment tests.
Note that it is not necessary to create the members GENES and GENES2MODULES manually. The reverse mapping from genes to modules, GENES2MODULES, will be automatically inferred from MODULES2GENES. If no meta-information on genes is provided in GENES, then a minimal data frame will be created with one column only (ID).
One of the main objectives in writing tmod was the ability to analyse metabolic profiling data and other uncommon data sets. In 2012, we have analysed metabolic profiles of serum collected from patients suffering from tuberculosis (TB) and healthy controls (Weiner 3rd et al. 2012). It turned out that there are huge differences between these two groups of individuals, involving amino acid metabolism, lipid metabolism and many others. In the course of the analysis, we found correlations between the metabolites which are not explained fully by the metabolic pathways. For example, cortisol is correlated with kynurenine due to the immunoactive function of these molecules indicating an activation of the immune system, and not because these two molecules are linked by a synthesis process. Vice versa, kynurenine and tryptophan were not directly correlated, even though these molecules are clearly linked by a metabolic process, because tryptophan is not an immune signalling molecule, while kynurenine is.
The tmod package includes both, the data set used in the Weiner et al. paper and the cluster definitions (modules) published therein. In the following, we will use these modules to analyse the metabolic profiles16.
First, we load the data modules and the data set to analyse.
data(modmetabo) ## modules
data(tbmprof)
ids <- rownames(tbmprof)
tb <- factor(gsub("\\..*", "", ids))
sex <- factor( gsub( ".*\\.([MF])\\..*", "\\1", ids))
table(tb, sex)
## sex
## tb F M
## HEALTHY 58 34
## TB 25 19
The metabolic profiling data has not exactly a normal distribution, but that varies from one compound to another. It is possible to normalize it by ranking, but we can simply use the wilcoxon test to see differences between males and females as well as TB patients and healthy individuals.
wcx.tb <- apply(tbmprof, 2, function(x) wilcox.test(x ~ tb, conf.int=T))
wcx.tb <- t(sapply(wcx.tb, function(x) c(x$estimate, x$p.value)))
wcx.sex <- apply(tbmprof, 2, function(x) wilcox.test(x ~ sex, conf.int=T))
wcx.sex <- t(sapply(wcx.sex, function(x) c(x$estimate, x$p.value)))
wcx <- data.frame(ID=colnames(tbmprof),
E.tb=wcx.tb[,1], pval.tb=wcx.tb[,2],
E.sex=wcx.sex[,1], pval.sex=wcx.sex[,2],
row.names=colnames(tbmprof))
The data frame contains the results of all tests. We can now test both the healthy/tb comparison and the male/female comparison for enrichment in metabolic profiling modules. Instead ordering the feature identifiers, we use the option “input.order” to determine the sorting.
ids <- wcx$ID
res <- list()
res$tb <- tmodCERNOtest(ids[order(wcx$pval.tb)], mset=modmetabo)
res$tb
## # tmod report (class tmodReport) 8 x 3:
## │ID │Title │cerno│N1 │AUC
## ME.107│ME.107│Amino acids cluster │ 105│ 18│ 0.88
## ME.37│ ME.37│Kynurenines, taurocholates and cortisol cluster│ 117│ 25│ 0.88
## MP.2│ MP.2│Amino Acid │ 99│ 28│ 0.71
## │cES │P.Value│adj.P.Val
## ME.107│ 2.9│1.3e-08│5.4e-07
## ME.37│ 2.3│2.8e-07│5.9e-06
## MP.2│ 1.8│0.00034│0.0047
res$sex <- tmodCERNOtest(ids[order(wcx$pval.sex)], mset=modmetabo)
res$sex
## # tmod report (class tmodReport) 8 x 3:
## │ID │Title │cerno│N1 │AUC │cES │P.Value│adj.P.Val
## ME.26│ME.26│Hormones cluster │ 62│ 10│ 0.92│ 3.1│2.9e-06│0.00012
## MS.1│ MS.1│Steroid │ 61│ 11│ 0.87│ 2.8│1.6e-05│0.00033
## ME.69│ME.69│Cholesterol cluster│ 45│ 11│ 0.82│ 2.1│0.0025 │0.03565
Both these result tables are concordant with previous findings. The enriched modules in male vs female comparison are what one would expect. In TB, a cluster consisting of kynurenine, bile acids and cortisol is up-regulated, while amino acids go down. We can take a closer look at it using the evidencePlot function.
Why is there a module called “Amino acid cluster” and another one called “Amino acid?” The “cluster” in the name of the module indicates that it has been build by clustering of the profiles, while the other module has been based on the biochemical classification of the molecules. This information is contained in the Category column of the MODULES data frame:
modmetabo$MODULES[ c("ME.107", "MP.2"), ]
## NULL
To get an overview for both of these comparisons at the same time, we can use the tmodPanelPlot function. The size of the blobs below corresponds to the AUC values from the tables above.
tmodPanelPlot(res)
This, unfortunately, does not tell us in which group the metabolites from a given modules are higher. For this, we can use the “estimate” from the wilcox.test above and a parameter for tmodPanelPlot called “pie.” To create the value for this parameter – a list that describes, for each condition and for each module, how many metabolites change in one direction, and how many change in the other.
pie.data <- wcx[,c("E.sex", "E.tb")]
colnames(pie.data) <- c("sex", "tb")
pie <- tmodDecideTests(wcx$ID, lfc=pie.data, lfc.thr=0.2, mset=modmetabo)
tmodPanelPlot(res, pie=pie, pie.style="rug", grid="between")
We see now that the cortisol cluster is higher in TB, while amino acids are found at lower concentration in the patients. Also, we see that most of the steroids found (cluster ME.26 and module MS.1) are lower in females. The latter is not surprising if we inspect it closely.
wcx <- wcx[order(wcx$pval.sex),]
showModule(wcx[,c("E.sex", "pval.sex")], wcx$ID, "MS.1", mset=modmetabo)
## E.sex pval.sex
## HMDB00493 -0.87 3.04e-06
## HMDB00365 -0.64 4.03e-05
## HMDB02759 -0.62 1.07e-04
## M.37186 -0.50 1.49e-04
## HMDB03818.1 -0.39 1.54e-04
## M.32619 -0.36 3.42e-04
## HMDB03818 -0.46 4.35e-03
## HMDB01032 -0.27 5.28e-03
## HMDB02802 -0.10 8.85e-02
## HMDB00063 -0.12 1.55e-01
## HMDB04026 -0.08 3.35e-01
i <- "HMDB00493" # what is it?
modmetabo$GENES[i,]
## NULL
par(mfrow=c(1,2))
showGene(tbmprof[,i], sex, main=modmetabo$GENES[i, "Name"],
ylab="Relative abundance")
## now for cortisol cluster
i <- "HMDB00063"
wcx <- wcx[order(wcx$pval.tb),]
showModule(wcx[,c("E.tb", "pval.tb")], wcx$ID, "ME.37",
mset=modmetabo)[1:10,] # only first 10!
## E.tb pval.tb
## M.47908 -7.00e-01 2.67e-14
## M.32599 -8.00e-01 2.32e-10
## HMDB00169 -6.30e-01 5.12e-09
## Mx.22110 -6.45e-05 1.38e-08
## HMDB00063 -5.40e-01 1.99e-08
## HMDB00159 -2.90e-01 2.49e-08
## M.32807 -1.22e+00 3.58e-08
## M.46637 -1.03e+00 6.66e-08
## M.46652 -8.40e-01 1.42e-07
## HMDB00684 -3.10e-01 1.79e-07
showGene(tbmprof[,i], tb, main=modmetabo$GENES[i, "Name"],
ylab="Relative abundance")
We can practically circumvent a gene-by-gene analysis. In fact, we are rarely interested in the p-values associated with single genes or metabolites. There is too many of them, and the statistical power is limited by the sheer number of tests and the requirement of correction for multiple testing. In case you have not read the part on FMA above, “Functional multivariate analysis,” in its simplest form, is simply combining a principal component analysis (PCA) with enrichment analysis. PCA lets us explore where the variance in the data is; enrichment analysis allows us to interprete the principal components in functional terms.
In tmod, it can be done in a few lines of code:
pca <- prcomp(tbmprof, scale.=T)
ret <- tmodPCA(pca, genes=colnames(tbmprof), mset=modmetabo,
plot.params=list(group=tb))
The ret object now contains the results of enrichments (in the ret$enrichments member) and we can directly throw it on a panel plot. Note, however, that for each components we have three enrichments: “up,” for genes sorted in decreasing order, “down,” for genes sorted in increasing order, and “abs,” for genes sorted by decreasing absolute value of the associated weight. Therefore, we need to unlist the results a bit.
enr <- unlist(ret$enrichments, recursive=FALSE)
names(enr) <- gsub("\\.", " ", names(enr))
ggPanelplot(enr)
OK, but which of the terms are characteristic for TB patients? Which for the healthy controls? In the above, the enrichments were based on a list sorted by the absolute PCA weights. However, we can split it into a list ordered by signed weights ordered once from small to large values, and once from large to small values.
pca <- prcomp(tbmprof, scale.=T)
ret <- tmodPCA(pca, genes=colnames(tbmprof), mset=modmetabo,
plot.params=list(group=tb),
mode="cross")
In essence, reading this plot is simple. First, note that this time the tag clouds on the top and the bottom correspond to the two ends of the vertical, y axis (second component); and the tag clouds at the left and right correspond to the two ends of the horizontal, x axis (first PCA component).
Now, take the amino acid cluster (bottom of the plot): it is enriched at the lower end of the y axis, which means, that features in that cluster are higher in the yellow points which are at the bottom of the plot (lower end of the y). In other words, amino acids are higher in healthy persons – a finding which corroborates the differential analysis above.
Similarly, “kynurenines” are at the left, lower side of the x axis, which means, that features from this cluster are at higher levels in TB patients.
What about the male-female differences? They probably can be found in other, less important17 components. We could look for them manually, but we can also search which of the responses (turned to orthogonal PCA components) is best predicted by the sex factor.
foo <- summary(lm(pca$x ~ sex))
foo <- t(sapply(foo,
function(x) c(r=x$r.squared, pval=x$coefficients[2,4])))
head(foo[ order(foo[,2]), ])
## r pval
## Response PC5 0.2457 8.49e-10
## Response PC10 0.2146 1.36e-08
## Response PC7 0.0328 3.48e-02
## Response PC8 0.0221 8.39e-02
## Response PC107 0.0199 1.02e-01
## Response PC6 0.0192 1.08e-01
We can use the components 1 (which corresponds to TB/healthy) and components 5, which corresponds to male/female differences, as suggested by the above calculations.
ret <- tmodPCA(pca, genes=colnames(tbmprof), mset=modmetabo,
plot.params=list(group=paste(sex, tb)),
components=c(2,5))
Orange circles and blue triangles are females, located mostly in Q1 and Q2 (top half); this corresponds to differences on the y axis and the tagcloud next to it (hormone cluster, steroids etc.). On the other hand, TB patients (blue triangles and yellow circles) are in Q1 and Q4 (right-hand side), which corresponds to the TB-specific tag cloud below the y axis.
The example below has been extended from the edgeR package users manual.
The code below loads the data and, using org.Hs.eg.db, adds Entrez IDs and HGNC symbols.
library(edgeR)
rawdata <- read.csv("rnaseq_example.csv", stringsAsFactors=FALSE)
y <- DGEList(counts=rawdata[,4:9], genes=rawdata[,1:3])
map <- toTable(org.Hs.egREFSEQ2EG)
y$genes$EG <- map$gene_id[ match(y$genes$idRefSeq, map$accession) ]
map <- toTable(org.Hs.egSYMBOL)
y$genes$Symbol <- map$symbol[ match(y$genes$EG, map$gene_id) ]
Next, we perform differential gene expression to test for the difference between normal tissue (N) and tumor (T).
Patient <- paste0("P.", rep(c(8, 33, 51), each=2))
Tissue <- rep(c("N", "T"), 3)
design <- model.matrix(~Patient+Tissue)
y <- calcNormFactors(y)
design <- model.matrix(~Patient+Tissue)
y <- estimateDisp(y, design, robust=TRUE)
fit <- glmQLFit(y, design)
## calculate the results for coefficient of interest
lrt <- glmQLFTest(fit, coef="TissueT")
Since there are no confidence intervals for log fold changes in edgeR, we cannot compute MSD, and therefore we will use the p-values to order the genes in the following code:
ord <- order(lrt$table$PValue)
res.rnaseq <- list()
res.rnaseq$tmod <- tmodCERNOtest(lrt$genes$Symbol[ord])
res.rnaseq$goset <- tmodCERNOtest(lrt$genes$EG[ord], mset=goset)
So far, so good. However, an alternative to using MSD is test the log fold change of the selected contrast not against 0, but against a pre-selected threshold using the TREAT method (McCarthy and Smyth 2009), implemented in edgeR in the function glmTreat:
lrt.treat <- glmTreat(fit, coef="TissueT", lfc=log2(2))
ord <- order(lrt.treat$table$PValue)
res.rnaseq$treat.tmod <- tmodCERNOtest(lrt$genes$Symbol[ord])
res.rnaseq$treat.goset <- tmodCERNOtest(lrt$genes$EG[ord], mset=goset)
res.rnaseq <- res.rnaseq[c(1,3,2,4)]
tmodPanelPlot(res.rnaseq, filter.rows.pval=1e-3)
The results are very similar, but the p-values are lower.
Coincident Extreme Ranks in Numerical Observations (Yamaguchi et al. 2008)↩︎
If you work with limma, there are other, more efficient and simpler to use functions. See “Working with limma” below. ↩︎
Formally, we don’t test for regulation here. “Differentially expressed” is the correct expression. I will use, however, the word “regulated” throughout this manual with the understanding that it only means “there is a difference between two conditions” because it is shorter.↩︎
The rationale is that the non-significant p-values are not associated with the test that we are actually performing, but merely used to sort the gene list. Thus, it does not matter whether they are significant or not.↩︎
Only the actual geneSetTest part, the wilcoxGST part is implemented in tmodUtest↩︎
Plus \(10^9\) to show the 0 values↩︎
Searching for enrichment only in up- or only in down-regulated genes depends on how the gene list is sorted; this is described in Section “Testing for up- or down-regulated genes separately.”↩︎
The colors can be modified by the parameter colors↩︎
The function tmodLimmaDecideTests is described in the next section↩︎
More on eigengenes in the Chapter on modules↩︎
http://www.biir.net/public_wikis/module_annotation/G2_Trial_8_Modules↩︎
The geneSetTest function from limma is implemented in the tmod function tmodGeneSetTest, and limma’s wilcoxon.GST is essentially the same as tmodUtest↩︎
Note that somewhat confusingly, limma’s both functions, geneSetTest and wilcoxGST, are identical. The latter function is a synonym for geneSetTest with the option rank.only=TRUE. However, this is the default setting for geneSetTest, which means that with the default setting, both functions return the same results.↩︎
Note that even if you register with MSig, it is not possible to download the database directly from R in the XML format.↩︎
MSigDB gene sets can be also downloaded as “GMT” files. This format contains less information and is therefore less usable.↩︎
Formally, this is not correct, as the modules were derived from the data set that we are going to analyse, however it serves for demonstration purposes↩︎
That is, components which include a smaller fraction of the total variance in the data set↩︎